home *** CD-ROM | disk | FTP | other *** search
startrecord=true label= nodetype=14 comment=Function which has one argument, the mailbox nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=procedure expose acidname acidnumber mailbox faxscript datascript line2=parse arg mailbox . line3=call loadMailBox(mailbox) line4=calledSysop = 0 line5=pagedSysop = 0 line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=if mailbox.autoalertb = 1 & mailbox.autoalertscript ~= '' then line2= address rexx 'alertsysop' mailbox line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=1 filename=voiceFile(mailbox,'Personal') comment= keyactiontype=0 keyactionaction=aakeypressed faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=3 erroractionaction= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label=aaAnnounce nodetype=8 line1=if mailbox.autoforwardannounce = 1 & mailbox.autoforward ~= '' then call announceForwardNumber line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label=aanopersonal nodetype=1 filename='avm:voices/MailboxGreeting' comment=Press 2 to send a fax now. Or, wait for the beep, leave your message, then press 1 when you're done. keyactiontype=0 keyactionaction=aakeypressed faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=14 comment=Init log file stuff nextactiontype=3 nextactionaction= endrecord=true startrecord=true label=aaskipinstructions nodetype=8 line1=handle = makeUniqueFile() line2=call initLogEntry() line3=call time('r') line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=userBeep = getclip('AVMUserBeep') line2=if userBeep = 'YES' then do line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=1 filename='avm:voices/UserBeep' comment=beep keyactiontype=0 keyactionaction=aakeypressed faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=end; else do line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=2 frequency1=3000 frequency2=0 duration=4 keyactiontype=3 keyactionaction=aakeypressed faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=end line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=0 filename=voiceFile(mailbox,handle) recordinglength=0 silenceinterval=-1 silencethreshold=-1 keyactiontype=2 keyactionaction=call aafixlog; signal aakeypressedafterrecord quietactiontype=2 quietactionaction=call aafixlog; signal stdabort silenceactiontype=2 silenceactionaction=call aafixlog; if upper(getclip('AVMDataAfterSilence')) = 'YES' then signal stddata; else signal stdabort faxactiontype=2 faxactionaction=call aafixlog; signal stdfax dataactiontype=2 dataactionaction=call aafixlog; signal stddata busyactiontype=2 busyactionaction=call aafixlog; signal stdbusy timedoutactiontype=2 timedoutactionaction=call aafixlog; signal aakeypressedafterrecord abortactiontype=2 abortactionaction=call aafixlog; signal stdabort erroractiontype=2 erroractionaction=call aafixlog; signal stderror nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=14 comment=Shouldn't get here nextactiontype=0 nextactionaction=stderror endrecord=true startrecord=true label=aafixlog nodetype=14 comment=This writes out the log file nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=if mailbox.autoforwardb = 1 & mailbox.autoforwardondemand = "" & calledSysop = 0 then do line2= line3= call aaCallSysop line4=end line5=if mailbox.autopageb = 1 & mailbox.autopageondemand = "" & pagedSysop = 0 then do line6= line7= call aaPageSysop line8=end line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=log.filename = handle line2=log.length = trunc(time('e')) line3=log.type = 'voice' line4=call saveLogEntry(mailbox, handle) line5=preConv = upper(getclip('AVMPreConvert')) line6=if preConv = 'YES' then line7= address command 'run >nil: <nil: avm:adpcm2iff' , line8= voiceFile(mailbox, handle) voiceFile(mailbox, handle) || 'i' '-nogui -1second' line9= line10= nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label=aakeypressedafterrecord nodetype=12 nextactiontype=3 nextactionaction= endrecord=true startrecord=true label=processmailboxmenu nodetype=3 filename='avm:voices/MailboxCaller' comment=Press 1 to leave another message, 2 to send a fax, 3 to electronically leave your telephone number, 4 to wake the sysop up, 6 to forward this message to the mailbox owner, 7 to call the mailbox owner's pager, or the * sign to end your call. [5=data, 9=maintenance, #=previous menu, 0=repeat menu] retries=3 zeroactiontype=0 zeroactionaction=processmailboxmenu oneactiontype=0 oneactionaction=aaAnnounce twoactiontype=0 twoactionaction=stdfaxinstruct threeactiontype=2 threeactionaction=call aaleavenumber() fouractiontype=2 fouractionaction=good = getpassword(mailbox.autoalertondemand); if good then address rexx 'alertsysop' mailbox fiveactiontype=0 fiveactionaction=stddatainstruct sixactiontype=2 sixactionaction=good = getpassword(mailbox.autoforwardondemand); if good & calledSysop = 0 then call aaCallSysop() sevenactiontype=2 sevenactionaction=good = getpassword(mailbox.autopageondemand); if good & pagedSysop = 0 then call aaPageSysop() eightactiontype=3 eightactionaction= nineactiontype=2 nineactionaction=call aamaintenancemode(mailbox) poundactiontype=2 poundactionaction=return staractiontype=0 staractionaction=answervoiceDone faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy timedoutactiontype=0 timedoutactionaction=answervoiceDone abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=0 nextactionaction=processmailboxmenu endrecord=true startrecord=true label= nodetype=14 comment=Shouldn't get here nextactiontype=0 nextactionaction=stderror endrecord=true startrecord=true label=aaleavenumber nodetype=8 line1=number = getNumber() line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=log.returnnumber = number line2=call updateLogEntry(mailbox, handle) line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label=aakeypressed nodetype=3 filename='avm:voices/SkipFaxMaintenance' comment=Press 1 to skip the instructions, 2 to send a fax, 9 to enter maintenance mode [5=data, *=hangup, #=previous menu, 0=repeat menu] retries=3 zeroactiontype=0 zeroactionaction=aakeypressed oneactiontype=0 oneactionaction=aaskipinstructions twoactiontype=0 twoactionaction=stdfaxinstruct threeactiontype=0 threeactionaction=aaAnnounce fouractiontype=3 fouractionaction= fiveactiontype=0 fiveactionaction=stddatainstruct sixactiontype=3 sixactionaction= sevenactiontype=3 sevenactionaction= eightactiontype=3 eightactionaction= nineactiontype=2 nineactionaction=call aamaintenancemode(mailbox) poundactiontype=2 poundactionaction=return staractiontype=0 staractionaction=stdabort faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy timedoutactiontype=0 timedoutactionaction=answervoiceDone abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label= nodetype=7 filename=avm:rexx/maintenancemode.avm nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label=aaCallSysop nodetype=8 line1=procedure expose mailbox. mailbox calledSysop line2=if mailbox.autoforwardscript ~= "" & mailbox.autoforward ~= "" then do line3= calledSysop = 1 line4= handle = makeUniqueFile() line5= call initLogEntry(); log.origmailbox = mailbox line6= log.filename = 'avm:voices/autoforward'; log.type = 'voice' line7= log.returnsendfunc = mailbox.autoforwardscript; log.returninterval = 5 line8= log.returnretry = 3; log.returnnumber = mailbox.autoforward; log.altFileName = voiceFile(mailbox, 'Introduction') line9= call saveLogEntry('Outgoing', handle) line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=1 filename='avm:voices/BeingForwarded' comment=This message is being forwarded to the mailbox owner at... keyactiontype=3 keyactionaction= faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1= call playNumber(mailbox.autoforward) line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=12 nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=end line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label=announceForwardNumber nodetype=1 filename='avm:voices/AnnounceForward' comment=The following forwarding number was left by the mailbox owner... keyactiontype=3 keyactionaction= faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=call playNumber(mailbox.autoforward) line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=1 filename='avm:voices/AnnounceAgain' comment=Press 3 to repeat the telephone number. keyactiontype=3 keyactionaction= faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label=aaPageSysop nodetype=8 line1=procedure expose mailbox. mailbox pagedSysop line2=if mailbox.autopagescript ~= "" & mailbox.autopage ~= "" then do line3= pagedSysop = 1 line4= handle = makeUniqueFile() line5= call initLogEntry(); log.origmailbox = mailbox line6= log.filename = 'avm:voices/autoforward'; log.type = 'voice' line7= log.returnsendfunc = mailbox.autopagescript; log.returninterval = 5 line8= log.returnretry = 3; log.returnnumber = mailbox.autopage; log.altFileName = voiceFile(mailbox, 'Introduction') line9= call saveLogEntry('Outgoing', handle) line10=end nextactiontype=2 nextactionaction=return endrecord=true 
